(deftemplate persoana
    (slot nume)
    (slot parinte)
    (slot partener))

(assert (persoana (nume Ion_Popescu) (parinte NULL )  (partener Maria_Popescu)  ))
(assert (persoana (nume Maria_Popescu) (parinte NULL )  (partener Ion_Popescu)  ))
(assert (persoana (nume Petre_Andreescu) (parinte NULL )  (partener Maria_Andreescu)  ))
(assert (persoana (nume Maria_Andreescu) (parinte Ion_Popescu)  (partener Petre_Andreescu)  ))
(assert (persoana (nume Cristian_Popescu) (parinte Ion_Popescu)  (partener Elena_Popescu)  ))
(assert (persoana (nume Elena_Popescu) (parinte NULL)  (partener Cristian_Popescu)  ))
(assert (persoana (nume Adrian_Popescu) (parinte Ion_Popescu)  (partener Cristina_Popescu)  ))
(assert (persoana (nume Cristina_Popescu) (parinte NULL)  (partener Adrian_Popescu)  ))
(assert (persoana (nume Ciprian_Popescu) (parinte Ion_Popescu)  (partener Adriana_Popescu)  ))
(assert (persoana (nume Adriana_Popescu) (parinte NULL)  (partener Ciprian_Popescu)  ))
(assert (persoana (nume Ionel_Andreescu) (parinte Maria_Andreescu) (partener NULL)  ))
(assert (persoana (nume Ionel_Avram) (parinte Maria_Andreescu) (partener NULL)  ))
(assert (persoana (nume Tudor_Popescu) (parinte Adrian_Popescu) (partener NULL)  ))

(facts)